Public FormCancelled As Boolean 
Public ReportOption As Integer 
Public NextRow As Integer 

Sub TotalTime() 
i 

1 Macro 1 Macro 

' Macro recorded 02/13/2002 by David Bates 

ReportOption = 0 
Load TimeUpdtRptGnrt 
TimeUpdtRptGnrt.Show 
TimeUpdtRptGnrt.Hide 
Unload TimeUpdtRptGnrt 

If ReportOption = 0 Then Exit Sub 

Sheets("Daily Timesheet").Select 
CurrRow = ActiveCell.Row 
CurrCol = ActiveCell.Column 
NextRow = CurrRow 
Select Case ReportOption 
CaseO 

Exit Sub 
Case 1, 2, 4 

NextRow = HandleOneDay(NextRow) 
Case 3 

NextRow = 10000 

Cells(NextRow, CurrCol).Select 

Do While NextRow > 8 

NextRow = HandleOneDay(NextRow) 

Loop 
End Select 

Cells(CurrRow, CurrCol).Select 
End Sub 

Function HandleOneDay(xRow) 
Sheets("Daily Timesheet").Select 
Cells(NextRow, l).Select 
If Cells(ActiveCell.Row, 1). Value = "" Then 

ActiveCell.End(xlUp).Select 
End If 

CurrDate = ActiveCell.Value 

UpperRow = ActiveCell.Row 

LowerRow = UpperRow 

Do While Cells(LowerRow + 1, 4).Value > 0 
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LowerRow = LowerRow + 1 
Loop 

NextRow = UpperRow - 2 

Range("B" + Format(UpperRow) + ":" + "K" + Format(LowerRow)).Select 
Selection.Sort Keyl:=Range("E" + Format(UpperRow)), Order 1 :=xlAscending, 
Key2:=Range("F" + Format(UpperRow) _ 

), Order2:=xlAscending, Header:=xlNo, OrderCustom:=l , MatchCase:=False _ 

, Orientation:=xlTopToBottom 

If Cells(l, 10). Value = "TAR" Then 

TARMethod = True 
Else 

TARMethod = False 
End If 

TotalHours = 0 

TotalBill = 0 

TotalNonBill = 0 

SubTotalHours = 0 

For x = UpperRow To LowerRow 

SubTotalHours = SubTotalHours + Cells(x, 4).Value 
If Cells(x, 7).Value = "N" Or Cells(x, 7). Value = "n" Then 
NonBill = True 
Cells(x, 9).Value = "--" 
Cells(x, 10).Value = Cells(x, 4).Value 
Else 

NonBill = False 

Cells(x, 9).Value = Cells(x, 4).Value 
Cells(x, 10). Value = "--" 
End If 

If Cells(x, 5).Value o Cells(x + 1, 5).Value Or Cells(x, 6).Value o Cells(x + 1, 6).Value Or 
Cells(x, 7).Value o Cells(x + 1, 7).Value Or x = LowerRow Then 
If TARMethod Then 

SubTotalHours = Application. WorksheetFunction.Ceiling((SubTotalHours - 1 A 60), 0.1) 
End If 

If NonBill Then 

TotalNonBill = TotalNonBill + SubTotalHours 
Else 

TotalBill = TotalBill + SubTotalHours 
End If 

TotalHours = TotalHours + SubTotalHours 
If ReportOption = 2 Then 
Cells(x, ll).Value = "" 
Else 
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Cells(x, 1 l).Value = SubTotalHours 
End If 

SubTotalHours = 0 

If ReportOption o 2 Then 

Range(Cells(x, 1), Cells(x, ll)).Select 

DrawBottomLine (True) 
End If 
Else 

Cells(x, ll).Value = "" 
End If 
Nextx 

If ReportOption = 2 Then 

Range(Cells(LowerRow +1,9), Cells(LowerRow + 1, ll)).Font.Bold = False 

Cells(LowerRow + 1, 9).Value = "" 

Cells(LowerRow + 1, 10).Value = "" 

Cells(LowerRow +1,11 ). Value = "" 
Else 

Range(Cells(LowerRow +1,9), Cells(LowerRow + 1, 1 l)).Font.Bold = True 
Cells(LowerRow + 1, 9). Value = TotalBill 
Cells(LowerRow + 1, 10). Value = TotalNonBill 
Cells(LowerRow +1,1 1). Value = TotalHours 
End If 

Sheets("2002").Select 
Cells(4, 2).Select 
MatchingRow = 4 

Do While Cells(MatchingRow, 2).Value o CurrDate 
MatchingRow = MatchingRow + 1 
If MatchingRow > 400 Then 
MsgBox "Unable to update time because day match not found" + Chr(13) & Chr(10) + 
"Dates must be entered with four digit years, e.g., 1/1/2002" 
Exit Do 
End If 
Loop 

Cells(MatchingRow, 3). Value = TotalBill 
Cells(MatchingRow, 4).Value = TotalNonBill 

Sheets("Daily Timesheet").Select 

Range("A" + Format(UpperRow) + ":" + "K" + Format(LowerRow)). Select 
If ReportOption = 2 Then 
RemoveAllLines (True) 

RangefB" + Format(UpperRow) + ":" + "K" + Format(LowerRow)).Select 
Selection. Sort Keyl :=Range("B" + Format(UpperRow)), Orderl :=xlAscending, 
Header:=xlNo, _ 

OrderCustom:=l, MatchCase:=False, Orientation:=xlTopToBottom 
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Else 

DrawThickBorder (True) 
End If 

IfReportOption= 1 Then 
Dim printRange As String 

printRange = "A" + Format(UpperRow) + ":" + "K" + Format(LowerRow + 
With Worksheets("Daily Timesheet") 
.PageSetup.PrintArea = printRange 
.Printout 
End With 
End If 

HandleOneDay = UpperRow - 2 
End Function 

Function DrawBottomLine(DrawBottom) 
With Selection.Borders(xlEdgeBottom) 

.LineStyle = xlContinuous 

.Weight = xlThin 

.Colorlndex = xlAutomatic 
End With 
End Function 

Function RemoveAllLines(RemoveLines) 
Selection.Borders(xlDiagonalDown). LineStyle = xlNone 
Selection.Borders(xlDiagonalUp).LineStyle = xlNone 
Selection.Borders(xlEdgeLeft).LineStyle = xlNone 
Selection.Borders(xlEdgeTop).LineStyle = xlNone 
Selection.Borders(xlEdgeBottom).LineStyle = xlNone 
Selection.Borders(xlEdgeRight).LineStyle = xlNone 
Selection.Borders(xlInsideVertical).LineStyle = xlNone 
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone 
End Function 

Function DrawThickBorder(Border) 
With Selection.Borders(xlEdgeBottom) 

.LineStyle = xlContinuous 

.Weight = xlThick 

.Colorlndex = xlAutomatic 
End With 

With Selection.Borders(xlEdgeTop) 

.LineStyle = xlContinuous 

.Weight = xlThick 

.Colorlndex = xlAutomatic 
End With 
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With Selection.Borders(xlEdgeLeft) 
.LineStyle = xlContinuous 
.Weight = xlThick 
.Colorlndex = xlAutomatic 

End With 

With Selection.Borders(xlEdgeRight) 
.LineStyle = xlContinuous 
.Weight = xlThick 
.Colorlndex = xlAutomatic 

End With 

End Function 
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